home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmgs.dir / Internal_20_horseScript.ls < prev    next >
Encoding:
Text File  |  2001-09-05  |  426 b   |  30 lines
  1. property meSprite
  2. global gmObject
  3.  
  4. on beginSprite me
  5.   meSprite = sprite(me.spriteNum)
  6.   gmObject.reportHorse(me.spriteNum)
  7. end
  8.  
  9. on exitFrame me
  10.   if meSprite.locV < 600 then
  11.     if gmObject.speed > -1 then
  12.       gmObject.lookup(meSprite.loc)
  13.     else
  14.       gmObject.lookUpBack(meSprite.loc)
  15.     end if
  16.   end if
  17. end
  18.  
  19. on mouseEnter me
  20.   cursor([500, 501])
  21. end
  22.  
  23. on mouseLeave me
  24.   cursor(0)
  25. end
  26.  
  27. on endSprite me
  28.   cursor(0)
  29. end
  30.